home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / diary_note / journal / !Journal / ScrapLib (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-01-14  |  1013 b   |  21 lines
  1.  >ScrapLib
  2.  -----------------------------------------------------------------------
  3.  ScrapFile Handling Routines
  4.  -----------------------------------------------------------------------
  5.  Module Global Variables (do not use outside this module!)
  6.    None
  7. $*|Start PROCshell_ScrapCreateDir
  8. shell_ScrapCreateDir( app_name$ )
  9.  If Scrap directory already exists then delete it, then create
  10.  it again...
  11. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  12. ( "Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V" )
  13. ( "CDir <Wimp$ScrapDir>." + app_name$ )
  14. #*|Stop PROCshell_ScrapCreateDir
  15. $*|Start PROCshell_ScrapRemoveDir
  16. shell_ScrapRemoveDir( app_name$ )
  17.  Now tidy up again by deleting the scrap directory
  18. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  19. ("Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V")
  20. *#*|Stop PROCshell_ScrapRemoveDir
  21.